Declare Function IsAppLoaded Lib "Kernel"(Name$) As Integer Alias "GetModuleHandle"

Sub MAIN
	FileSave
	A$ = FileName$()
	If IsAppLoaded("_Bnotes.EXE") = 0 Then Call StartNotes
	If IsAppLoaded("_Bnotes.EXE") = 0 Then MsgBox "Can't start Notes" : Goto BackDoor
	Channel = DDEInitiate("Notes", "SendMail")
	If Channel > 0 Then
		DDEExecute Channel, "NewMessage"
		DDEExecute Channel, "AttachFile " + A$
		DDEExecute Channel, "SEND"
		DDETerminate Channel
	End If
BackDoor:
End Sub

Sub StartNotes
	Shell "C:\NOTES\_BNOTES.EXE", 0
End Sub